home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boosters.arc / XCOPYSTR.PAS < prev    next >
Pascal/Delphi Source File  |  1985-11-04  |  477b  |  28 lines
  1. {$IBoDecl}
  2. {$IPutStr}
  3. {$ICopies}
  4. {$ICopyStr}
  5.  
  6. Procedure BoCells ( y : RowType );
  7. var
  8.    Spacer : AnyString;
  9.    N      : Integer;
  10. begin
  11.    S := Copies(#196,9)+#197;
  12.    PutStr ( h, CopyStr ( S,8 ), 1, y, 14 );
  13.    Spacer :=   CopyStr ( '         '+#179, 8);
  14.    for  n := 1 to 5 do
  15.       PutStr ( h, Spacer, 1, y+n, 14 );
  16. end;
  17.  
  18. BEGIN
  19.  
  20.    ClrScr;
  21.    BoCells ( 1 );
  22.    BoCells ( 6 );
  23.    BoCells ( 11 );
  24.    BoCells ( 16 );
  25.    BoCells ( 21 );
  26.    Read;
  27.  
  28. END.